home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / term / intuition-win.el < prev    next >
Encoding:
Text File  |  1994-08-22  |  2.0 KB  |  51 lines
  1. ;(setq stack-trace-on-error t) ; CHFIXME
  2. ;(load "s:.emacs-menu" t t)
  3. (setq command-switch-alist (append '(("-fn" . amiga-handle-set-font)
  4.                      ("-fg" . amiga-handle-set-foreground)
  5.                      ("-bg" . amiga-handle-set-background)
  6.                      ("-geometry" . amiga-handle-set-geometry)
  7.                      ("-screen" . amiga-handle-set-screen))
  8.                    command-switch-alist))
  9.  
  10. (defun amiga-handle-set-font (switch)
  11.   (condition-case err
  12.       (let ((wfont (car command-line-args-left))
  13.         (height (car (read-from-string (car (cdr command-line-args-left))))))
  14.     (setq command-line-args-left (cdr (cdr command-line-args-left)))
  15.     (amiga-set-font wfont height))
  16.     (error (message "Failed to load font"))))
  17.  
  18. (defun amiga-handle-set-foreground (switch)
  19.   (condition-case err
  20.       (let ((pen (car (read-from-string (car command-line-args-left)))))
  21.     (setq command-line-args-left (cdr command-line-args-left))
  22.     (amiga-set-foreground-color pen))
  23.     (error (message "Failed to set foreground colour"))))
  24.  
  25. (defun amiga-handle-set-background (switch)
  26.   (condition-case err
  27.       (let ((pen (car (read-from-string (car command-line-args-left)))))
  28.     (setq command-line-args-left (cdr command-line-args-left))
  29.     (amiga-set-background-color pen))
  30.     (error (message "Failed to set background colour"))))
  31.  
  32. (defun amiga-handle-set-screen (switch)
  33.   (condition-case err
  34.       (let ((name (car command-line-args-left)))
  35.     (setq command-line-args-left (cdr command-line-args-left))
  36.     (amiga-set-geometry nil nil nil nil name))
  37.     (error (message "Couldn't open on public screen"))))
  38.  
  39. (defun amiga-handle-set-geometry (switch)
  40.   (condition-case err
  41.       (let ((x (car (read-from-string (car command-line-args-left))))
  42.         (y (car (read-from-string (car (cdr command-line-args-left)))))
  43.         (w (car (read-from-string (car (cdr (cdr command-line-args-left))))))
  44.         (h (car (read-from-string (car (cdr (cdr (cdr command-line-args-left)))))))
  45. )
  46.     (setq command-line-args-left (cdr (cdr (cdr (cdr command-line-args-left)))))
  47.     (amiga-set-geometry x y w h nil))
  48.     (error (message "Couldn't set window size"))))
  49.  
  50.  
  51.